PolarPlot[(1 + 0.6 Cos[4t]) (1 + Sin[t]), {t, -Pi, Pi}]